home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / amicomsys / rexx / sendftp.amicomsys < prev    next >
Text File  |  1999-05-17  |  862b  |  49 lines
  1. /* Send FTP-address to your browser
  2.  This uses a WEB-browser to show the FTP-site
  3.  Currently supported is Aweb, Amosaic, Ibrowse and Voyager.
  4.  $VER: SendWEB.amicomsys 1.2 (01.10.1997) Håkan Parting
  5. */
  6. parse arg args
  7. options results
  8.  
  9. if show('P','AWEB.1') then
  10. do
  11.     address 'AWEB.1'
  12.     OPEN args
  13.     Exit
  14. end
  15. if show('P','AMOSAIC.1') then
  16. do 
  17.     address 'AMOSAIC.1'
  18.     JUMP URL args
  19.     Exit
  20. end
  21. if show('P','IBROWSE.1') then
  22. do
  23.     address 'IBROWSE.1'
  24.     NewWindow args
  25.     Exit
  26. end
  27. if show('P','IBROWSE') then
  28. do
  29.     address 'IBROWSE'
  30.     GotoUrl args
  31.     /* Change to GotoUrl if new window should open */
  32.     Exit
  33. end
  34. if show('P','VOYAGER') then
  35. do
  36.     address 'VOYAGER'
  37.     OPENURL args NEW
  38.     Exit
  39. end
  40. /* Set the path to your web/ftp-browser under the Misc-tab in AmiComSys settings.
  41. */
  42.  
  43. ADDRESS AMICOMSYS
  44. OPTIONS RESULTS;
  45. GET stem info.;
  46.  
  47. ADDRESS COMMAND "c:run >NIL: "info.ftpprgpath" "args;
  48. Exit
  49.